perm filename DD.F4[IRC,LCS] blob sn#641769 filedate 1982-02-14 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C	DIMENSION I(4,500)
C00003 ENDMK
CāŠ—;
C	DIMENSION I(4,500)
	DIMENSION I(3)
1	FORMAT(4I)
2	FORMAT(I4,',',I3,',',I1)
10	FORMAT(' INPUT NAME  '$)
11	FORMAT(' OUTPUT NAME  '$)
12	FORMAT(A5)
	TYPE 10
	ACCEPT 12,NMIN
	TYPE 11
	ACCEPT 12,NMOUT
	CALL IFILE(1,NMIN)
	CALL OFILE(20,NMOUT)
	K=1
3	READ(1,1,END=4)N,I
C3	READ(1,1,END=4)(I(J,K),J=1,4)
C	I(1,K)=K
CC	WRITE(20,2)I
  	WRITE(20,1)K,I
	K=K+1
	GO TO 3
4	END FILE 20
	END